home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls085.solintel.Z / tls085.solintel / lib / vtcl / tests / focus3.tcl < prev    next >
Encoding:
Text File  |  1995-07-20  |  977 b   |  29 lines
  1. # CVS $Id: focus3.tcl,v 1.3 1995/02/03 16:54:40 zibi Exp $
  2. # Simple test
  3.  
  4. # simple file selector - should ask for a URL
  5. proc OpenCB {cbs} {
  6.     set fd [ VtFileSelectionDialog filesel -title "Open" ]
  7.     VtShowDialog $fd 
  8. }
  9.  
  10.  
  11. set app [VtOpen chelp]
  12. set form [VtFormDialog $app.form -help -title "WWW Viewer"]
  13. set mb [VtMenuBar $form.mb]
  14.  
  15. set filem [VtPulldown $mb.filem -label "File"]
  16.     VtPushButton $filem.open -label "Open..." -callback OpenCB
  17.     VtPushButton $filem.exit -label "Exit" -callback "VtClose"
  18. set optionm [VtPulldown $mb.optionm -label "Options"]
  19.     VtPushButton $optionm.cgh -label "Clear Global History..."
  20.     VtSeparator $optionm.sep
  21.     VtPushButton $optionm.adda -label "Add Annotation..."
  22. set label [VtLabel $form.label -label "Document Title" -topSide $mb]
  23. set text1 [VtText $form.text1 -value "focus3.tcl" -columns 60 -readOnly]
  24. set text2 [VtText $form.text2 -rows 15 -columns 70 -readOnly \
  25.     -value "blah"]
  26. VtShow $form
  27. VtSetFocus $text2
  28. VtMainLoop
  29.